home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / batutil1.zip / EQUIP.BAT < prev    next >
DOS Batch File  |  1990-03-25  |  3KB  |  96 lines
  1. :Batutil c(o) 1990 Barry Simon and Richard Wilson
  2. : Version 1.0
  3. echo off
  4. if exist batutil.exe goto buOK
  5. echo This demo file requires BATUTIL.EXE to be in the default drive and directory
  6. goto end
  7. :echo1
  8. Welcome to the @1FBATUTIL@1E equipment reading demo
  9.       This demonstration will show how BATUTIL
  10.       can give you information on your system
  11. :echo2
  12.  
  13. I would like to save your environment to env.tmp and
  14.      later restore it but that file exists
  15.    May I erase it (Y/N)?
  16. :echo3
  17.  
  18.  
  19. Here is what BATUTIL found when it examined your machine
  20.   Your CPU is $x(t1).
  21.   Your math coprocessor is $x(t2).
  22.   You have $x(t3) printer ports, $x(t4) comm ports and $x(t5) game ports.
  23.   You have $x(t6) floppy drives and $x(t7) monitor(s).
  24.   Your active monitor is $x(t8).
  25.   You do$x(t9) have an ANSI driver and you do$x(ta) have an enyukked keyboard.
  26.   Your DOS version times 10 rounded down is $x(tb).
  27.   Your LIM Ver times 10 is $x(tc)  (0 means no LIM).
  28.   Your Carousel partition is $x(td) (0 means no Carousel).
  29.   Your Desqview partition is $x(te) (0 means no Desqview).
  30.   Your Omniview partition is $x(tf) (0 means no Omniview).
  31.   Your free DOS memory (in 4K units) is $x(tg), your total LIM memory in 64K
  32.     units is $x(th) and your free LIM in 16K units is $x(ti) [199 = 199 or more].
  33.   Total space on this disk is $x(tj) times 256K (times 16K on drives A and B).
  34.  
  35.   This is only some of the information that BATUTIL can access.  You can also
  36.   find out if a file exists on your path, whether a file has today's date
  37.   and even compare two files to see which is older.
  38.     Hit a key to exit the equipment demo and thanks for using BATUTIL.
  39.  
  40. :buOK
  41. set cur=off
  42. BATUTIL {CU -}{CLS}{RO 5}{CO 5}{FP %0 echo1}
  43. if x%1==xfrommain goto frommain
  44. if not exist env.tmp goto efileOK
  45. BATUTIL {CU -}{FE %0 echo2}{CU +}{GE Y N}
  46. if errorlevel 2 goto end
  47. erase env.tmp >nul
  48. :efileOK
  49. BATUTIL {set cur=}{SA env.tmp}{KI} >nul
  50. if errorlevel 200 goto envprob
  51. :frommain
  52. rem this is for calling main demo file
  53. set cur=off
  54. set a=
  55. set b=
  56. BATUTIL {RO +2}{CO 5}{EC One moment while I check out your system!}{#I}{set r1=$x(rc)}{#P}{set t3=$x(rc)}
  57. if %r1%==20 set t1=unknown
  58. if %r1%==0 set t1=8086/8088
  59. if %r1%==1 set t1=80186
  60. if %r1%==2 set t1=80286
  61. if %r1%==3 set t1=80386
  62. BATUTIL {@I}{set r2=$x(rc)}{#C}{set t4=$x(rc)}{#G}{set t5=$x(rc)}{#F}{set t6=$x(rc)}{#T}{set t7=$x(rc)}{#W}
  63. if %rc%==1 set t8=monochrome (non-Hercules)
  64. if %rc%==2 set t8=cgacolor
  65. if %rc%==4 set t8=ega color
  66. if %rc%==5 set t8=ega mono
  67. if %rc%==6 set t8=prof. graphics
  68. if %rc%==7 set t8=vga mono
  69. if %rc%==8 set t8=vga color
  70. if %rc%==11 set t8=mcga mono
  71. if %rc%==12 set t8=mcga color
  72. if %rc%==21 set t8=hercules mono
  73. if %rc%==22 set t8=hercules monochrome plus
  74. if %rc%==23 set t8=hercules Incolor
  75. if %rc%==99 set t8=none of cga, ega, vga, hercules
  76. if %r2%==0 set t2=none
  77. if %r2%==1 set t2=8087
  78. if %r2%==2 set t2=80287
  79. if %r2%==3 set t2=80387
  80. BATUTIL {@A}{set r1=$x(rc)}{#K}{set r2=$x(rc)}{DO}{set tb=$x(rc)}{LI}{set tc=$x(rc)}{CA}{set td=$x(rc)}{DV}{set te=$x(rc)}
  81. if %r1%==1 set t9=
  82. if %r1%==0 set t9= not
  83. if %r2%==1 set ta=
  84. if %r2%==0 set ta= not
  85. BATUTIL {OV}{set tf=$x(rc)}{@M}{set tg=$x(rc)}{#L}{set th=$x(rc)}{@L}{set ti=$x(rc)}{#D}{set tj=$x(rc)}
  86. BATUTIL {CL}{FE %0 echo3}{GE EL}{set cur=}{EC $_}
  87. if x%1==xfrommain goto end
  88. BATUTIL {LO env.tmp} >nul
  89. erase env.tmp >nul
  90. goto end
  91. :envprob
  92. cls
  93. echo  Problem setting up environment for this demo.  Sorry.
  94. :end
  95.  
  96.